home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 August / Ahoy_Magazine_86-08_1986_Double_L.d64 / Print Formatter2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  247 b   |  10 lines
  1. 1 print"[147]":poke53280,6:poke53281,1:poke646,0
  2. 2 printtab(5)"commodares....print formatter 2"
  3. 3 rem solution by
  4. 4 rem     jim speers
  5. 5 rem
  6. 10 input"value, number of decimal places";v,l
  7. 15 v$=str$(int(v*10^l+.5))
  8. 20 print tab(32-len(v$)+l) left$(v$,len(v$)-l) "." right$(v$,l)
  9. 30 goto10
  10.